home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
twm-listing 10
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
663b
|
28 lines
10 rem help-demo
20 :
30 sys32168
35 poke 650,128 :rem alle tasten repeat-funktion
40 :
50 rem anzahl und namen der help-seiten
60 n=3 :rem anzahl der help-seiten
70 dn$(0)="" :dn$(n+1)=""
80 for i=1 to n :dn$(i)="helpseite"+str$(i) :next
90 :
100 rem help-seiten anlegen und speichern
110 for i=1 to n
120 (NULL) 1,1,"geben sie den help-text"
130 (NULL) 3,"fuer seite"+str$(i)+" ein !!"
140 (NULL) 5,"ende der eingabe mit 'f3' !"
150 (NULL)1,10,10,24,39,1,0,dn$(i) :(NULL)1,(i+1)*2,128 :(NULL)1
160 printchr$(147)
170 (NULL)
180 (NULL) "@:"+dn$(i),dn$(i-1),dn$(i+1)
190 (NULL) :(NULL)1
200 next
210 :
220 rem fertig, help aktivieren
230 (NULL) dn$(1)
240 (NULL) 10,1,"help-funktion aktiviert,"
260 (NULL) 12,1,"aufruf mit 'f5' oder 'help'-befehl !"
270 end